/*
 * PROGRAMA QUE CHECA A MINHA BASE DE CADASTRO PRODUTO
 */

/* Declara o atalho para a minha pasta da AluraPlay */
LIBNAME alura "/folders/myfolders/AluraPlay";

* Vou checar o meu diretrio da Alura ;
PROC DATASETS
	lib=alura details;
RUN;

* Checa o contedo da minha base de cadastro produto ;
PROC CONTENTS
	data=alura.cadastro_produto;
RUN;

* Imprime a minha base de cadastro produto ;
PROC PRINT
	data=alura.cadastro_produto;
RUN;

* Gera as frquencias das variveis Gnero, Plataforma e Nome ;
PROC FREQ
	data=alura.cadastro_produto nlevels;
	table genero plataforma nome;
RUN;

/* Cria uma nova base com a varivel de flag de lanamento */
DATA teste;
set alura.cadastro_produto;

LENGTH lancamento 3;

IF data > 201606
	THEN lancamento = 1;
	ELSE lancamento = 0;

RUN;

* Imprime minha nova base ;
PROC PRINT
	data=teste;
RUN;

* Gera a tabela de frequncia da minha varivel de laamento ;
PROC FREQ
	data=teste;
	table lancamento;
RUN;

* Gera a frequencia cruzada das variveis Gnero e Lanamento ;
PROC FREQ
	data=teste;
	table genero*lancamento
	/norow nocol nopercent;
RUN;

* Gera a lista cruzada das variveis Nome e Gnero ;
PROC FREQ
	data=alura.cadastro_produto nlevels;
	*table nome;
	table nome*genero
	/ list;
RUN;

/* Salva a minha base intermendiria no diretrio da AluraPlay */
DATA alura.cadastro_produto_v2;
set teste;
rename lancamento = flag_lancamento;
label Genero = "Gnero"
	lancamento = "Marca 1 para jogos que so lanamento e 0 caso contrrio";
RUN;

* Checar se minha base 'cadastro_produto_v2' foi criada corretamente ;
PROC CONTENTS
	data=alura.cadastro_produto_v2;
RUN;

